home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 501-525 / disk_503 / pcq / pcq12asc.lzh / Runtime / Extras / Break.asm next >
Assembly Source File  |  1990-07-14  |  342b  |  24 lines
  1. *
  2. *    Break.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    This just checks whether the Ctrl-C was pressed.
  6. *
  7.  
  8.     SECTION    PCQ_Runtime,CODE
  9.  
  10.     XREF    _LVOSetSignal
  11.     XREF    _AbsExecBase
  12.  
  13.     XDEF    _CheckBreak
  14. _CheckBreak
  15.     move.l    _AbsExecBase,a6
  16.     moveq    #0,d0
  17.     moveq    #0,d1
  18.     jsr    _LVOSetSignal(a6)
  19.     and.l    #4096,d0
  20.     sne    d0
  21.     rts
  22.  
  23.     END
  24.